home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / 14.c < prev    next >
C/C++ Source or Header  |  1996-01-30  |  773b  |  31 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9. #include "hdr.h"
  10. #include "vars.h"
  11. #include "attr.h"
  12. #include "errmsgp.h"
  13. #include "chapp.h"
  14.  
  15. void check_range_attribute(Node node)                /*;check_range_attribute*/
  16. {
  17.     if (N_KIND(node) == as_attribute
  18.       && ((int)attribute_kind(node) == ATTR_O_RANGE
  19.       ||  (int)attribute_kind(node) == ATTR_T_RANGE)) {
  20.         errmsg("invalid use of 'RANGE in expression", "none", node) ;
  21.     }
  22. }
  23.  
  24. #ifdef TBSN
  25. int is_value(char *x)                                        /*;is_value*/
  26. {
  27.     TO_ERRFILE("is_value (ch 14) not implemented");
  28.     return       (is_tuple(x) and x(1) = 'ivalue') ;
  29. }
  30. #endif
  31.